home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 06 - 1990 / 06.07 Jul 90 / Commando Programming ƒ / Rezscripts / RezC.STR < prev    next >
Encoding:
Text File  |  1989-08-09  |  609 b   |  28 lines  |  [TEXT/MPS ]
  1. ###    File: RezC.STR
  2. ### Generate Rez input for STR Resources
  3. ### W. Powell    1988
  4.  
  5. Set Exit 0
  6. Set rid {1}
  7. Shift 1
  8. Echo -n "Resource ∂'STR ∂' ({rid}"
  9. If "{1}" == "-nms"
  10.     Set rname "{2}"
  11.     If ("{rname}" != "")
  12.         Echo -n ,∂""{rname}"∂"
  13.     End
  14.     Shift 2
  15. End
  16. Set Str "{1}"
  17. Shift 1
  18.  
  19. If ( "{1}" == "-sy" ) ; Echo -n ",SysHeap" ; Shift ; End
  20. If ( "{1}" == "-pu" ) ; Echo -n ",Purgeable" ; Shift ; End
  21. If ( "{1}" == "-lo" ) ; Echo -n ",Locked" ; Shift ; End
  22. If ( "{1}" == "-Pr" ) ; Echo -n ",Protected" ; Shift ; End
  23. If ( "{1}" == "-PL" ) ; Echo -n ",PreLoad" ; Shift ; End
  24. Echo ") ∂{"
  25.  
  26. Echo "∂t∂"{Str}∂""
  27. Echo "∂t∂};"
  28. Exit 0